home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
6
/
c_math.zip
/
TANH.C
< prev
Wrap
Text File
|
1983-07-02
|
404b
|
28 lines
/*
tanh(arg) computes the hyperbolic tangent of its floating
point argument.
sinh and cosh are called except for large arguments, which
would cause overflow improperly.
*/
double sinh(), cosh();
double
tanh(arg)
double arg;
{
double sign;
sign = 1.;
if(arg < 0.){
arg = -arg;
sign = -1.;
}
if(arg > 21.)
return(sign);
return(sign*sinh(arg)/cosh(arg));
}